Mac Magazin/MacEasy 25/Mac Magazin and MacEasy Magazine CD - Issue 25.iso/Datenbanken & Hypercard/Lingo/Lingo Database

FileMaker Pro Database | 1996-09-06 | 83KB | 483 lines

 play makAll work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All
HBAM2016AUG95
Pro 3.0
 All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dullCopyright 1984-1996 Claris Corporation
 and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy. All work and no play makes Jack a dull boy.
HBAM3016AUG95@
frameE
frame
scriptE
handler
memberB
member
scriptB
movieC
movie
scriptC
scriptB
buttonA
button
pressedA
cursorE
hiliteC
iconE
cursorE
moveableB
moveable
spriteB
pressedA
rolloverC
rollover
hiliteC
spriteB
Handler
/22/96
riptJ
7/22/96
/22/96
t the name of a sprite (button) that is clicked.
V = the locV of sprite me
  repeat while the stillDown
    set the locH of sprite me = the mouseH - offsetH
    set the locV of sprite me = the mouseV - offsetV
    updateStage
    add myList, list(the locH of sprite me, the locV of sprite me)
  end repeat
9/6/96
    Helvetica
Geneva
CREATED
FOUND
    INFO ICON
    INFO SHOW
LAYOUT
MODIFIED
NOTES
SYNTAX
TOTAL SCRIPTS
SyntaxB
TypeB
NotesB
A    Info IconB
A    Info ShowB
) = "Script & Notes"
) = "List View & Notes"
Script & Notes
List View & Notes
NameB
Total ScriptsB
CreatedB
ModifiedB
FoundB
Layout
Layout
Script Only
Script & Notes
@"A    List View
List View & Notes
Splash
Script OnlyB
Script Type
NcCreated: <<
ABAJ>>          Modified: <<
ABAK>>          Found: <<
ABAL>>          Total: <<
ABAI>>
Script & NotesB
otesB
button
About Lingo Database...
Opening Script
----------------------------------------------
New Script
Find Script
Show Notes
Copy Script
    List View
Script View
----------------------------------------------
Go To: Script View
----------------------------------------------
Closing Script
New Script
Find Script
    Helvetica
Geneva
Times
Monaco
  nothing
  end repeat
  if vCastNam = 0 or vCastNam = EMPTY then
    set the castNum of sprite vSprite to vCastNo
  else
    set the castNum of sprite vSprite to the number of cast vCastNam
  end if
  puppetSprite vSprite, false
  updateStage
  -------------------------------------------------------------------------------------
  -- The script will return a value of 1 if the user clicks the button and
  -- releases it over the clicked button. A 0 is returned if the user clicks
- the button but drags the mouse off of it when the button is released.
  -------------------------------------------------------------------------------------
  if the mouseCast = the castNum of sprite vSprite then
    return 1
  else
    return 0
  end if
end
Handler
CAThis script will allow you to move a sprite around on the screen.G
Moveable SpriteJ
7/22/96
 - the locH of sprite me
  set offsetV = the mouseV = the locV of sprite me
  set oldH = the locH of sprite me
  set oldV = the locV of sprite me
  repeat while the stillDown
    set the locH of sprite me = the mouseH - offsetH
    set the locV of sprite me = the mouseV - offsetV
    updateStage
    add myList, list(the locH of sprite me, the locV of sprite me)
  end repeat
Member ScriptCAThis script will allow you to move a sprite around on the screen.
Member ScriptCAThis script will allow you to move a sprite around on the screen.
on mouseDown
  global myList
  set me = the clickOn
  set myList = []
  set offsetH = the mouseH - the locH of sprite me
  set offsetV = the mouseV = the locV of sprite me
  set oldH = the locH of sprite me
  set oldV = the locV of sprite me
  repeat while the stillDown
    set the locH of sprite me = the mouseH - offsetH
    set the locV of sprite me = the mouseV - offsetV
    updateStage
    add myList, list(the locH of sprite me, the locV of sprite me)
  end repeat
Member Script
Member Script
  updateStage
  repeat while the stillDown
Pro 3.0F!
Sunday
Monday
Tuesday
    Wednesday
Thursday
Friday
Saturday
January
February
March
April
August
    September
October
November
December
1st Quarter
2nd Quarter
3rd Quarter
4th Quarter
-----------------------------
-- Movie Script
-----------------------------
on startMovie
  repeat with x = 25 to 30
    set the visible of sprite x to false
-- set your non showing sprites as invisible
  end repeat
end startMovie
--------------------------------------------------------------
-- handler for checking if the mouse is over
hovering
 over a
-- sprite that needs to be updated
on rollcheck
  rollin
  global spot, LastSpot
  if spot <> lastspot then
    --unlight  the l
on rollcheck
  rollin
  global spot, LastSpot
  if spot <> lastspot then
    --unlight  the l
This is a handler that will allow you to get the name of a sprite (button) that is clicked. It will decide which button was selected and if the user moves off of the button then the button will not perform its associated script.G
Button PressedJ
9/6/96
- This loop checks to see whether the sprite has a cast name.
  -- If it has no name the down button must be
  -- placed directly after the "up" in the cast
  -- If it has a name the pressed button must be called "YourButtonName-down"
  -- Note. A cast member with no name returns a 0.  However a castmember that is assigned
  -- a name that is subsequently deleted returns as an empty string
  -------------------------------------------------------------------------------------
  if vCastNam = 0 or vCastNam = EMPTY then
    set the castNum of sprite vSprite to (vCastNo + 1)
  else
    set the castNum of sprite vSprite to the number of cast (vCastNam & "-down")
  end if
  updateStage
  repeat while the stillDown
Show Notes
Copy Script
Copy Script
) = "Script & Notes"
Script & Notes
) = "Script Only"
Script Only
) = "List View & Notes"
List View & Notes
) = "List View"
    List View
Copy Script
    Helvetica
Geneva
Times
Monaco
o{    g?1
Nso{o{^
o{o{^
o{o{1
o{o{9
o{o{F1
o{o{g?
o{o{F1
o{o{g?
o{o{F1
o{o{g?
Nso{1
Nso{1
o{o{V
NsNsV
F1F1NsV
NsNsV
o{o{F1
ast one
    set the visible of sprite LastSpot to false
    puppetSprite lastspot, False
    --now light the new one
    puppetSprite spot, true
    set the visible of sprite spot to true
    updateStage
  end if
  put Spot into LastSpot
on rollin
  global spot
  repeat with x = 35 to 40
    if rollover (x) then
      put (x - 10) into spot
      exit
    end if
  end repeat
  put 0 into spot
Movie ScriptCXThis script is used to create a rollover effect with clickable areas of a director tour.G
Rollover Hilite
A3on exitFrame
rollcheck
updateStage
go the Frame
Frame ScriptC
This is the looping part of the exitFrame that goes into the score script. This script calls the associated handler while in the current frame.J
7/22/96
d repeat
  put 0 into spot
endut (x - 10) into spot
      exit
    end if
  end repeat
  put 0 into spot
on enterFrame
  set iconcursor to [the number of cast "cursorIcon"]
  set changeToIcon = FALSE
  if rollover (7) then set changeToIcon = TRUE
  if changeToIcon then
    cursor (iconcursor)
  else
    cursor (-1)
  end if
Frame ScriptCRThis will change the icons when passing over a certain sprite object in the score.G
Icon CursorJ
7/22/96
7/30/96J
7/30/96
Score ScriptCRThis will change the icons when passing over a certain sprite object in the score.G
Icon CursorJ
7/22/96
7/22/96J
7/22/96
A    List View
) = 2
Script View
    Helvetica
Geneva
Times
Monaco
(LIST
LISTABMovie Script
Score Script
Button Script
Cast Member Script
Handler
VDEFA(
A    Locations
A    List ViewB
(LIST
LISTA@Movie Script
Frame Script
Button Script
Member Script
Handler
VDEFA(
(LIST
VDEFA(
A    LocationsB
Associations
o Database
FMRLA
Lingo Database
(LIST
LISTABMovie Script
Score Script
Button Script
Cast Member Script
Handler
VDEFA(
A    Locations
(LIST
LISTABMovie Script
Score Script
Button Script
Cast Member Script
Handler
VDEFA(
A    Locations
Script TypeUcCreated: <<
ABAJ>>          Modified: <<
ABAK>>          Found: <<
ABAL>>          Total: <<
ABAI>>
    A----------------------------------------------
Closing Script
About Lingo Database...
    Helvetica
Geneva
Times
Monaco
o{o{9
o{o{F1
o{o{F1
) = 3
Opening Script
    Helvetica
Geneva
Times
Monaco
prite
  put the name of cast (vCastNo) into vCastNam    -- get cast Name of Sprite
  puppetSprite vSprite, true                      -- switch puppet on
  -------------------------------------------------------------------------------------
  -- This loop checks to see whether the sprite has a cast name.
  -- If it has no name the down button must be
  -- placed directly after the "up" in the cast
  -- If it has a name the pressed button must be called "YourButtonName-down"
  -- Note. A cast member with no name returns a 0.  However a castmember that is assigned
  -- a name that is subsequently deleted returns as an empty string
  -------------------------------------------------------------------------------------
  if vCastNam = 0 or vCastNam = EMPTY then
    set the castNum of sprite vSprite to (vCastNo + 1)
  else
    set the castNum of sprite vSprite to the number of cast (vCastNam & "-down")
  end if
  updateStage
  repeat while the stillDown
) = "Script Only"
) = "Script & Notes"
) = "List View"
) = "List View & Notes"
Script Only
Script & Notes
    List View
List View & Notes
List View & Notes
    List View
o{o{F1
o{o{F1
Script TypeL$Click on the script you wish to view
Script Type
o{o{F1
o{o{F1
SplashB
o{o{F1
Script TypeM$Click on the script you wish to view
List View & NotesB
o{o{V
o{o{F1
F1o{o{F1
F1o{o{F1
F1o{o{F1
F1o{o{F1
F1o{o{F1
F1o{o{F1
F1o{o{F1
F1o{o{F1
F1o{o{F1
F1o{o{F1
F1o{o{F1
o{o{F1
Director and Lingo are trademarks of Macromedia
 Inc. Lingo Database is
 1996 by Matt Petrowsky developed using FileMaker
 Pro by Claris Corp. All rights reserved foreign and domestic.
Author of Lingo Database is Matt Petrowsky at <[e-mail]>B
Version 1.0C
Click to continue
eloped using FileMaker
 Pro by Claris Corp. All rights reserved foreign and domestic.
Author of Lingo Database is Matt Petrowsky at <[e-mail]>
tton HANDLER
  -- Handler does not require the cast number or name of the button to be
  -- passed to it.
  -------------------------------------------------------------------------------------
  set vSprite to the clickOn                      -- get sprite No.
  put the castNum of sprite vSprite into vCastNo  -- get cast No. of Sf S
~ffff
ffffff
ffff33
ff33ff
ff3333
33ffff
33ff33
3333ff
333333
wwwwww
UUUUUU
DDDDDD
""""""
d##@2
+229d
A----------------------------------------------
    Helvetica
Geneva
Times
Monaco
Go To: Script View
A----------------------------------------------
 bKt@
    Helvetica
Geneva
Times
Monaco
-- put this handler into the Movie Script
on hPressButton
  -------------------------------------------------------------------------------------
  -- hPresButton HANDLER
  -- Handler does not require the cast number or name of the button to be
  -- passed to it.
  -------------------------------------------------------------------------------------
  set vSprite to the clickOn                      -- get sprite No.
  put the castNum of sprite vSprite into vCastNo  -- get cast No. of S
  put the castNum of sprite vSprite into vCastNo  -- get cast No. of S